home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / util / time / SetDST.lha / SetDST-1.3 / Install-SetDST next >
Text File  |  1999-04-29  |  9KB  |  354 lines
  1. ;  $VER: InstallSetDST 1.0 (27.4.99) Copyright © 1999 by Stefan Falke
  2. ;  $Revision: 1.0 $ $Date: 1999/04/27 10:38:28 $
  3.  
  4. (set prog_name "SetDST")
  5.  
  6. (set destdev "DH0:")
  7. (set destdir "SetDST")
  8. (set Install_dest destdev)
  9.  
  10. (set @default-dest "")
  11.  
  12. (set defuser @user-level)
  13.  
  14. (set vernum (getversion))
  15. (set os_ver (/ vernum 65536))
  16. (set os_rev (- vernum (* os_ver 65536)))
  17.  
  18. (set ivernum @installer-version)
  19. (set iver (/ ivernum 65536))
  20. (set irev (- ivernum (* iver 65536)))
  21.  
  22. (set lang_english 0)
  23. (set lang_deutsch 1)
  24. (set lang_french  2)
  25. (set lang_builtin lang_english)
  26.  
  27. (set #lch_eu "English")
  28. (set #lch_du "Deutsch")
  29. (set #lch_fu "Français")
  30. (set #lch_el "english")
  31. (set #lch_dl "deutsch")
  32. (set #lch_fl "français")
  33.  
  34. (set language lang_builtin)
  35. (if (= #lch_el @language) (set language lang_english))
  36. (if (= #lch_dl @language) (set language lang_deutsch))
  37. (if (= #lch_fl @language) (set language lang_french))
  38.  
  39. (if (= language lang_deutsch) (
  40.     (set #chdir "Bitte Ziel-Verzeichnis für\nInstallation auswählen.\n\nEin eigenes Verzeichnis wird nicht\nautomatisch erzeugt.")
  41.     (set #chdirhelp "Sie müssen jetzt den Pfad des Verzeichnisses angeben, in das die Dateien kopiert werden sollen.\nNoch nicht vorhandene Verzeichnisse können von diesem Installationprogramm aus angelegt werden und mit einem Schubladen-Icon versehen werden.")
  42.  
  43.     (set #lchelp "Wählen Sie den SetDST Sprachen-Katalog der installiert werden soll.")
  44.     (set #askcatdir "In welchem Verzeichnis soll der Sprachen-Katalog installiert werden?")
  45.  
  46.     (set #owhelp "Wenn Sie diesen Requester mit 'Ja' beantworten, wird eine eventuell schon vorhandene %sVersion komplett überschrieben!")
  47.     (set #owhelp2 "Wenn Sie diesen Requester mit 'Ja' beantworten, wird eine eventuell schon vorhandene Datei komplett überschrieben!")
  48.  
  49.     (set #askinstall1 "Wollen sie das Hauptprogramm erneut installieren?")
  50.     (set #askinstall2 "Wollen sie das Hauptprogramm mit der Version %ld.%ld installieren?")
  51.     (set #installed1 (cat "Die Version %ld.%ld des Programmes \"%s\" ist vermutlich schon komplett in dem angegebenen Zielverzeichnis installiert.\n" #askinstall1))
  52.     (set #installed2 (cat "ACHTUNG! In dem angegebenen Zielverzeichnis befindet sich bereits die Version %ld.%ld des Programmes \"%s\".\n" #askinstall2))
  53.  
  54.     (set #runstartup "Soll SetDST während des Startvorganges des Computers automatisch ausgeführt werden?")
  55.     (set #rshelp "Wenn Sie diesen Requester mit 'Ja' beantworten, wird das Hauptprogramm in das WBStartup-Verzeichnis kopiert.")
  56.  
  57.     (set #pr_copycats "Kopieren des Sprachen-Katalogs")
  58.     (set #pr_copydata "Kopieren der Zeitzonen-Datei")
  59.     (set #pr_copyguide "Kopieren der Bedienungsanleitung")
  60.     (set #pr_copymain "Kopieren des Hauptprogrammes")
  61.  
  62.     (set #newer "neuere ")
  63.     (set #older "ältere ")
  64.     (set #no "Nein")
  65.     (set #yes "Ja")
  66. )(
  67.     (set #chdir "Please select a destination directory\nfor the installation.\n\nNo drawer will be created by default.")
  68.     (set #chdirhelp "You have to specify now the path of the drawer in which all files shall be copied.\nNon existant drawers can be created from within this install script including their accompanying icons.")
  69.  
  70.     (set #lchelp "Please select the language catalog to be installed")
  71.     (set #askcatdir "In which drawer do you want the catalog to be installed?")
  72.  
  73.     (set #owhelp "If you respond to this requester with 'Yes', a possibly existing %sversion will be written over completely!")
  74.     (set #owhelp2 "If you respond to this requester with 'Yes', a possibly existing file will be written over completely!")
  75.  
  76.     (set #askinstall1 "Do you want to install the main program again?")
  77.     (set #askinstall2 "Do you want to install the main program with version %ld.%ld?")
  78.     (set #installed1 (cat "Version %ld.%ld of the program \"%s\" presumedly has already been installed completely.\n" #askinstall1))
  79.     (set #installed2 (cat "ATTENTION! Version %ld.%ld of the program \"%s\" already exists in the destination drawer.\n" #askinstall2))
  80.  
  81.     (set #runstartup "Do you want SetDST to be run automatically during computer startup?")
  82.     (set #rshelp "If you respond to this requester with 'Yes', the main program will be copied to the SBStartup drawer.")
  83.  
  84.     (set #pr_copycats "Copy language catalog")
  85.     (set #pr_copydata "Copy timezone data file")
  86.     (set #pr_copyguide "Copy user guide")
  87.     (set #pr_copymain "Copy main program")
  88.  
  89.     (set #newer "newer ")
  90.     (set #older "older ")
  91.     (set #no "No")
  92.     (set #yes "Yes")
  93. ))
  94.  
  95. (procedure startcopy
  96.     (working)
  97.  
  98.     (set file prog_name)
  99.     (set Install_src "")
  100.  
  101.     (if (= copywbs 1)
  102.         (set ddir "sys:wbstartup")
  103.         (set ddir @default-dest)
  104.     )
  105.     (set dfile (tackon ddir prog_name))
  106.     (checkMain)
  107.  
  108.     (if (= docopy 1) (
  109.         (docopyMain)
  110.  
  111.         (docopyCats)
  112.  
  113.         (set dfile "SetDST.guide")
  114.         (set file (tackon Install_src dfile))
  115.         (docopyGuides)
  116.  
  117.         (set sdir "S")
  118.         (if (= copywbs 1)
  119.             (set ddir "S:")
  120.             (set ddir (tackon Install_dest "S"))
  121.         )
  122.         (docopyData)
  123.  
  124.     ))
  125.  
  126. )
  127.  
  128. (procedure chooseWBStart
  129.     (set copywbs (askbool
  130.             (prompt    #runstartup)
  131.             (help        #rshelp)
  132.             (choices #yes #no)
  133.         )
  134.     )
  135. )
  136.  
  137. (procedure chooseCats
  138.     (set catalog (askchoice
  139.             (choices #lch_eu #lch_du #lch_fu)
  140.             (prompt #lchelp)
  141.             (help #lchelp)
  142.             (default language)
  143.         )
  144.     )
  145.  
  146.     (if (= catalog lang_english) (set #ulcat #lch_el))
  147.     (if (= catalog lang_deutsch) (set #ulcat #lch_dl))
  148.     (if (= catalog lang_french)  (set #ulcat #lch_fl))
  149.  
  150.     (if (= catalog lang_builtin) (set #ulcat ""))
  151.     (if (<> #ulcat "") (
  152.         (if (= copywbs 1)(
  153.             (set catdirc 1)
  154.         )(
  155.             (set catdirc (askchoice
  156.                     (choices (tackon @default-dest (cat "Catalogs/" #ulcat)) (cat "LOCALE:Catalogs/" #ulcat) )
  157.                     (prompt #askcatdir)
  158.                     (help #askcatdir)
  159.                     (default 0)
  160.                 )  
  161.             )
  162.         ))
  163.  
  164.         (if (= catdirc 0) (
  165.             (set catdir @default-dest)
  166.         )(
  167.             (set catdir "LOCALE:")
  168.             (if (< (exists "LOCALE:" (noreq)) 2) (
  169.                 (makedir "sys:Locale")
  170.                 (makeassign "LOCALE" "sys:Locale")
  171.             ))
  172.             )
  173.         )
  174.     ))
  175. )
  176.  
  177. (procedure docopyCats
  178.     (if (<> #ulcat "") (
  179.         (if (< (exists (tackon catdir "Catalogs")) 2)
  180.             (makedir (tackon catdir "Catalogs"))
  181.         )
  182.         (if (< (exists (tackon catdir (cat "Catalogs/" #ulcat)) ) 2)
  183.             (makedir (tackon catdir (cat "Catalogs/" #ulcat)) )
  184.         )
  185.         (copylib
  186.             (prompt #pr_copycats)
  187.             (help @copylib-help)
  188.             (source (cat (tackon Install_src "Catalogs/") #ulcat "/setdst.catalog"))
  189.             (dest (tackon catdir (cat "Catalogs/" #ulcat)) )
  190.             (optional "nofail")
  191.             (confirm)
  192.         )
  193.     ))
  194. )
  195.  
  196. (procedure docopyData
  197.     (if (< (exists ddir) 2)
  198.         (makedir ddir)
  199.     )
  200.     (copyfiles
  201.         (prompt #pr_copydata)
  202.         (help @copyfiles-help)
  203.         (source sdir)
  204.         (dest ddir)
  205.         (pattern "#?.dat")
  206.         (confirm)
  207.     )
  208. )
  209.  
  210. (procedure docopyGuides
  211.     (if (= (exists file) 1)
  212.         (copyfiles
  213.             (prompt #pr_copyguide)
  214.             (help @copyfiles-help)
  215.             (source file)
  216.             (dest Install_dest)
  217.             (infos)
  218.             (optional "nofail")
  219.             (confirm)
  220.         )
  221.     )
  222.  
  223.     (if (>= os_ver 39)
  224.         (tooltype
  225.             (dest (tackon Install_dest dfile))
  226.             (setdefaulttool "MultiView")
  227.         )
  228.         (tooltype
  229.             (dest (tackon Install_dest dfile))
  230.             (setdefaulttool "AmigaGuide")
  231.         )
  232.     )
  233. )
  234.  
  235. (procedure docopyMain
  236.     (copyfiles
  237.         (prompt #pr_copymain)
  238.         (help @copyfiles-help)
  239.         (source file)
  240.         (dest ddir)
  241.         (infos)
  242.         (optional "force")
  243.         (confirm)
  244.     )
  245. )
  246.  
  247. (procedure checkMain
  248.     (if (= (exists dfile) 1) (
  249.         (set ver_source (getversion file))
  250.         (set ver_s (/ ver_source 65536))
  251.         (set rev_s (- ver_source (* ver_s 65536)))
  252.  
  253.         (set ver_dest (getversion dfile))
  254.         (set ver_d (/ ver_dest 65536))
  255.         (set rev_d (- ver_dest (* ver_d 65536)))
  256.  
  257.         (if (= ver_source ver_dest) (
  258.             (set vprompt (#installed1 ver_s rev_s prog_name))
  259.             (set vhelp (#owhelp ""))
  260.             (set docopy
  261.                 (askbool
  262.                     (prompt    vprompt)
  263.                     (help        vhelp)
  264.                     (choices #yes #no)
  265.                 )
  266.             )
  267.             (if (= @user-level 0) (set docopy 1))
  268.         ))
  269.         (if (< ver_source ver_dest) (
  270.             (set vprompt (#installed2 ver_d rev_d prog_name ver_s rev_s))
  271.             (set vhelp (#owhelp #newer))
  272.             (set docopy
  273.                 (askbool
  274.                     (prompt    vprompt)
  275.                     (help        vhelp)
  276.                     (choices #yes #no)
  277.                 )
  278.             )
  279.             (if (= @user-level 0) (set docopy 0))
  280.         ))
  281.         (if (> ver_source ver_dest) (
  282.             (set vprompt (#installed2 ver_d rev_d prog_name ver_s rev_s))
  283.             (set vhelp (#owhelp #older))
  284.             (set docopy
  285.                 (askbool
  286.                     (prompt    vprompt)
  287.                     (help        vhelp)
  288.                     (choices #yes #no)
  289.                 )
  290.             )
  291.             (if (= @user-level 0) (set docopy 1))
  292.         ))
  293.     )(
  294.         (set docopy 1)
  295.